home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / admin.cs next >
Encoding:
Text File  |  1999-09-14  |  24.0 KB  |  753 lines
  1. $curVoteTopic = "";
  2. $curVoteAction = "";
  3. $curVoteOption = "";
  4. $curVoteCount = 0;
  5.  
  6. function Admin::changeMissionMenu(%clientId)
  7. {
  8.    Client::buildMenu(%clientId, "Pick Mission Type", "cmtype", true);
  9.    %index = 1;
  10.     //DEMOBUILD - the demo build only has one "type" of missions
  11.     if ($MList::TypeCount < 2) $TypeStart = 0;
  12.     else $TypeStart = 1;
  13.    for(%type = $TypeStart; %type < $MLIST::TypeCount; %type++)
  14.       if($MLIST::Type[%type] != "Training")
  15.       {
  16.          Client::addMenuItem(%clientId, %index @ $MLIST::Type[%type], %type @ " 0");
  17.          %index++;
  18.       }
  19. }
  20.  
  21. function processMenuCMType(%clientId, %options)
  22. {
  23.    %curItem = 0;
  24.    %option = getWord(%options, 0);
  25.    %first = getWord(%options, 1);
  26.    Client::buildMenu(%clientId, "Pick Mission", "cmission", true);
  27.    
  28.    for(%i = 0; (%misIndex = getWord($MLIST::MissionList[%option], %first + %i)) != -1; %i++)
  29.    {
  30.       if(%i > 6)
  31.       {
  32.          Client::addMenuItem(%clientId, %i+1 @ "More missions...", "more " @ %first + %i @ " " @ %option);
  33.          break;
  34.       }
  35.       Client::addMenuItem(%clientId, %i+1 @ $MLIST::EName[%misIndex], %misIndex @ " " @ %option);
  36.    }
  37. }
  38.  
  39. function processMenuCMission(%clientId, %option)
  40. {
  41.    if(getWord(%option, 0) == "more")
  42.    {
  43.       %first = getWord(%option, 1);
  44.       %type = getWord(%option, 2);
  45.       processMenuCMType(%clientId, %type @ " " @ %first);
  46.       return;
  47.    }
  48.    %mi = getWord(%option, 0);
  49.    %mt = getWord(%option, 1);
  50.  
  51.    %misName = $MLIST::EName[%mi];
  52.    %misType = $MLIST::Type[%mt];
  53.  
  54.    // verify that this is a valid mission:
  55.    if(%misType == "" || %misType == "Training")
  56.       return;
  57.    for(%i = 0; true; %i++)
  58.    {
  59.       %misIndex = getWord($MLIST::MissionList[%mt], %i);
  60.       if(%misIndex == %mi)
  61.          break;
  62.       if(%misIndex == -1)
  63.          return;
  64.    }
  65.    if(%clientId.isAdmin)
  66.    {
  67.       messageAll(0, Client::getName(%clientId) @ " changed the mission to " @ %misName @ " (" @ %misType @ ")");
  68.         Vote::changeMission();
  69.       Server::loadMission(%misName);
  70.    }
  71.    else
  72.    {
  73.       Admin::startVote(%clientId, "change the mission to " @ %misName @ " (" @ %misType @ ")", "cmission", %misName);
  74.       Game::menuRequest(%clientId);
  75.    }
  76. }
  77.  
  78. function remoteAdminPassword(%client, %password)
  79. {
  80.    if($AdminPassword != "" && %password == $AdminPassword)
  81.    {
  82.       %client.isAdmin = true;
  83.       %client.isSuperAdmin = true;
  84.    }
  85. }
  86.  
  87. function remoteSetPassword(%client, %password)
  88. {
  89.    if(%client.isSuperAdmin)
  90.       $Server::Password = %password;
  91. }
  92.  
  93. function remoteSetTimeLimit(%client, %time)
  94. {
  95.    %time = floor(%time);
  96.    if(%time == $Server::timeLimit || (%time != 0 && %time < 1))
  97.       return;
  98.    if(%client.isAdmin)
  99.    {
  100.       $Server::timeLimit = %time;
  101.       if(%time)
  102.          messageAll(0, Client::getName(%client) @ " changed the time limit to " @ %time @ " minute(s).");
  103.       else
  104.          messageAll(0, Client::getName(%client) @ " disabled the time limit.");
  105.          
  106.    }
  107. }
  108.  
  109. function remoteSetTeamInfo(%client, %team, %teamName, %skinBase)
  110. {
  111.    if(%team >= 0 && %team < 8 && %client.isAdmin)
  112.    {
  113.       $Server::teamName[%team] = %teamName;
  114.       $Server::teamSkin[%team] = %skinBase;
  115.       messageAll(0, "Team " @ %team @ " is now \"" @ %teamName @ "\" with skin: " 
  116.          @ %skinBase @ " courtesy of " @ Client::getName(%client) @ ".  Changes will take effect next mission.");
  117.    }
  118. }
  119.  
  120. function remoteVoteYes(%clientId)
  121. {
  122.    %clientId.vote = "yes";
  123.    centerprint(%clientId, "", 0);
  124. }
  125.  
  126. function remoteVoteNo(%clientId)
  127. {
  128.    %clientId.vote = "no";
  129.    centerprint(%clientId, "", 0);
  130. }
  131.  
  132. function Admin::startMatch(%admin)
  133. {
  134.    if(%admin == -1 || %admin.isAdmin)
  135.    {
  136.       if(!$CountdownStarted && !$matchStarted)
  137.       {
  138.          if(%admin == -1)
  139.             messageAll(0, "Match start countdown forced by vote.");
  140.          else
  141.             messageAll(0, "Match start countdown forced by " @ Client::getName(%admin));
  142.       
  143.          Game::ForceTourneyMatchStart();
  144.       }
  145.    }
  146. }
  147.  
  148. function Admin::setTeamDamageEnable(%admin, %enabled)
  149. {
  150.    if(%admin == -1 || %admin.isAdmin)
  151.    {
  152.       if(%enabled)
  153.       {
  154.          $Server::TeamDamageScale = 1;
  155.          if(%admin == -1)
  156.             messageAll(0, "Team damage set to ENABLED by consensus.");
  157.          else
  158.             messageAll(0, Client::getName(%admin) @ " ENABLED team damage.");
  159.       }
  160.       else
  161.       {
  162.          $Server::TeamDamageScale = 0;
  163.          if(%admin == -1)
  164.             messageAll(0, "Team damage set to DISABLED by consensus.");
  165.          else
  166.             messageAll(0, Client::getName(%admin) @ " DISABLED team damage.");
  167.       }
  168.    }
  169. }
  170.  
  171. function Admin::kick(%admin, %client, %ban)
  172. {
  173.    if(%admin != %client && (%admin == -1 || %admin.isAdmin))
  174.    {
  175.       if(%ban && !%admin.isSuperAdmin)
  176.          return;
  177.          
  178.       if(%ban)
  179.       {
  180.          %word = "banned";
  181.          %cmd = "BAN: ";
  182.       }
  183.       else
  184.       {
  185.          %word = "kicked";
  186.          %cmd = "KICK: ";
  187.       }
  188.       if(%client.isSuperAdmin)
  189.       {
  190.          if(%admin == -1)
  191.             messageAll(0, "A super admin cannot be " @ %word @ ".");
  192.          else
  193.             Client::sendMessage(%admin, 0, "A super admin cannot be " @ %word @ ".");
  194.          return;
  195.       }
  196.       %ip = Client::getTransportAddress(%client);
  197.  
  198.       echo(%cmd @ %admin @ " " @ %client @ " " @ %ip);
  199.  
  200.       if(%ip == "")
  201.          return;
  202.       if(%ban)
  203.          BanList::add(%ip, 1800);
  204.       else
  205.          BanList::add(%ip, 180);
  206.  
  207.       %name = Client::getName(%client);
  208.  
  209.       if(%admin == -1)
  210.       {
  211.          MessageAll(0, %name @ " was " @ %word @ " from vote.");
  212.          Net::kick(%client, "You were " @ %word @ " by  consensus.");
  213.       }
  214.       else
  215.       {
  216.          MessageAll(0, %name @ " was " @ %word @ " by " @ Client::getName(%admin) @ ".");
  217.          Net::kick(%client, "You were " @ %word @ " by " @ Client::getName(%admin));
  218.       }
  219.    }
  220. }
  221.  
  222. function Admin::setModeFFA(%clientId)
  223. {
  224.    if($Server::TourneyMode && (%clientId == -1 || %clientId.isAdmin))
  225.    {
  226.       $Server::TeamDamageScale = 0;
  227.       if(%clientId == -1)
  228.          messageAll(0, "Server switched to Free-For-All Mode.");
  229.       else
  230.          messageAll(0, "Server switched to Free-For-All Mode by " @ Client::getName(%clientId) @ ".");
  231.  
  232.       $Server::TourneyMode = false;
  233.       centerprintall(); // clear the messages
  234.       if(!$matchStarted && !$countdownStarted)
  235.       {
  236.          if($Server::warmupTime)
  237.             Server::Countdown($Server::warmupTime);
  238.          else   
  239.             Game::startMatch();
  240.       }
  241.    }
  242. }
  243.  
  244. function Admin::setModeTourney(%clientId)
  245. {
  246.    if(!$Server::TourneyMode && (%clientId == -1 || %clientId.isAdmin))
  247.    {
  248.       $Server::TeamDamageScale = 1;
  249.       if(%clientId == -1)
  250.          messageAll(0, "Server switched to Tournament Mode.");
  251.       else
  252.          messageAll(0, "Server switched to Tournament Mode by " @ Client::getName(%clientId) @ ".");
  253.  
  254.       $Server::TourneyMode = true;
  255.       Server::nextMission();
  256.    }
  257. }
  258.  
  259. function Admin::voteFailed()
  260. {
  261.    $curVoteInitiator.numVotesFailed++;
  262.  
  263.    if($curVoteAction == "kick" || $curVoteAction == "admin")
  264.       $curVoteOption.voteTarget = "";
  265. }
  266.  
  267. function Admin::voteSucceded()
  268. {
  269.    $curVoteInitiator.numVotesFailed = "";
  270.    if($curVoteAction == "kick")
  271.    {
  272.       if($curVoteOption.voteTarget)
  273.          Admin::kick(-1, $curVoteOption);
  274.    }
  275.    else if($curVoteAction == "admin")
  276.    {
  277.       if($curVoteOption.voteTarget)
  278.       {
  279.          $curVoteOption.isAdmin = true;
  280.          messageAll(0, Client::getName($curVoteOption) @ " has become an administrator.");
  281.          if($curVoteOption.menuMode == "options")
  282.             Game::menuRequest($curVoteOption);
  283.       }
  284.       $curVoteOption.voteTarget = false;
  285.    }
  286.    else if($curVoteAction == "cmission")
  287.    {
  288.       messageAll(0, "Changing to mission " @ $curVoteOption @ ".");
  289.         Vote::changeMission();
  290.       Server::loadMission($curVoteOption);
  291.    }
  292.    else if($curVoteAction == "tourney")
  293.       Admin::setModeTourney(-1);
  294.    else if($curVoteAction == "ffa")
  295.       Admin::setModeFFA(-1);
  296.    else if($curVoteAction == "etd")
  297.       Admin::setTeamDamageEnable(-1, true);
  298.    else if($curVoteAction == "dtd")
  299.       Admin::setTeamDamageEnable(-1, false);
  300.    else if($curVoteOption == "smatch")
  301.       Admin::startMatch(-1);
  302. }
  303.  
  304. function Admin::countVotes(%curVote)
  305. {
  306.    // if %end is true, cancel the vote either way
  307.    if(%curVote != $curVoteCount)
  308.       return;
  309.  
  310.    %votesFor = 0;
  311.    %votesAgainst = 0;
  312.    %votesAbstain = 0;
  313.    %totalClients = 0;
  314.    %totalVotes = 0;
  315.    for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  316.    {
  317.       %totalClients++;
  318.       if(%cl.vote == "yes")
  319.       {
  320.          %votesFor++;
  321.          %totalVotes++;
  322.       }
  323.       else if(%cl.vote == "no")
  324.       {
  325.          %votesAgainst++;
  326.          %totalVotes++;
  327.       }
  328.       else
  329.          %votesAbstain++;
  330.    }
  331.    %minVotes = floor($Server::MinVotesPct * %totalClients);
  332.    if(%minVotes < $Server::MinVotes)
  333.       %minVotes = $Server::MinVotes;
  334.  
  335.    if(%totalVotes < %minVotes)
  336.    {
  337.       %votesAgainst += %minVotes - %totalVotes;
  338.       %totalVotes = %minVotes;
  339.    }
  340.    %margin = $Server::VoteWinMargin;
  341.    if($curVoteAction == "admin")
  342.    {
  343.       %margin = $Server::VoteAdminWinMargin;
  344.       %totalVotes = %votesFor + %votesAgainst + %votesAbstain;
  345.       if(%totalVotes < %minVotes)
  346.          %totalVotes = %minVotes;
  347.    }
  348.    if(%votesFor / %totalVotes >= %margin)
  349.    {
  350.       messageAll(0, "Vote to " @ $curVoteTopic @ " passed: " @ %votesFor @ " to " @ %votesAgainst @ " with " @ %totalClients - (%votesFor + %votesAgainst) @ " abstentions.");
  351.       Admin::voteSucceded();
  352.    }
  353.    else  // special team kick option:
  354.    {
  355.       if($curVoteAction == "kick") // check if the team did a majority number on him:
  356.       {
  357.          %votesFor = 0;
  358.          %totalVotes = 0;
  359.          for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  360.          {
  361.             if(GameBase::getTeam(%cl) == $curVoteOption.kickTeam)
  362.             {
  363.                %totalVotes++;
  364.                if(%cl.vote == "yes")
  365.                   %votesFor++;
  366.             }
  367.          }
  368.          if(%totalVotes >= $Server::MinVotes && %votesFor / %totalVotes >= $Server::VoteWinMargin)
  369.          {
  370.             messageAll(0, "Vote to " @ $curVoteTopic @ " passed: " @ %votesFor @ " to " @ %totalVotes - %votesFor @ ".");
  371.             Admin::voteSucceded();
  372.             $curVoteTopic = "";
  373.             return;
  374.          }
  375.       }
  376.       messageAll(0, "Vote to " @ $curVoteTopic @ " did not pass: " @ %votesFor @ " to " @ %votesAgainst @ " with " @ %totalClients - (%votesFor + %votesAgainst) @ " abstentions.");
  377.       Admin::voteFailed();
  378.    }
  379.    $curVoteTopic = "";
  380. }
  381.  
  382. function Admin::startVote(%clientId, %topic, %action, %option)
  383. {
  384.    if(%clientId.lastVoteTime == "")
  385.       %clientId.lastVoteTime = -$Server::MinVoteTime;
  386.  
  387.    // we want an absolute time here.
  388.    %time = getIntegerTime(true) >> 5;
  389.    %diff = %clientId.lastVoteTime + $Server::MinVoteTime - %time;
  390.  
  391.    if(%diff > 0)
  392.    {
  393.       Client::sendMessage(%clientId, 0, "You can't start another vote for " @ floor(%diff) @ " seconds.");
  394.       return;
  395.    }
  396.    if($curVoteTopic == "")
  397.    {
  398.       if(%clientId.numFailedVotes)
  399.          %time += %clientId.numFailedVotes * $Server::VoteFailTime;
  400.  
  401.       %clientId.lastVoteTime = %time;
  402.       $curVoteInitiator = %clientId;
  403.       $curVoteTopic = %topic;
  404.       $curVoteAction = %action;
  405.       $curVoteOption = %option;
  406.       if(%action == "kick")
  407.          $curVoteOption.kickTeam = GameBase::getTeam($curVoteOption);
  408.       $curVoteCount++;
  409.       bottomprintall("<jc><f1>" @ Client::getName(%clientId) @ " <f0>initiated a vote to <f1>" @ $curVoteTopic, 10);
  410.       for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  411.          %cl.vote = "";
  412.       %clientId.vote = "yes";
  413.       for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  414.          if(%cl.menuMode == "options")
  415.             Game::menuRequest(%clientId);
  416.       schedule("Admin::countVotes(" @ $curVoteCount @ ", true);", $Server::VotingTime, 35);
  417.    }
  418.    else
  419.    {
  420.       Client::sendMessage(%clientId, 0, "Voting already in progress.");
  421.    }
  422. }
  423.  
  424. function Game::menuRequest(%clientId)
  425. {
  426.    %curItem = 0;
  427.    Client::buildMenu(%clientId, "Options", "options", true);
  428.    if(!$matchStarted || !$Server::TourneyMode)
  429.    {
  430.       Client::addMenuItem(%clientId, %curItem++ @ "Change Teams/Observe", "changeteams");
  431.    }
  432.    if(%clientId.selClient)
  433.    {
  434.       %sel = %clientId.selClient;
  435.       %name = Client::getName(%sel);
  436.  
  437.       if($curVoteTopic == "" && !%clientId.isAdmin)
  438.       {
  439.          Client::addMenuItem(%clientId, %curItem++ @ "Vote to admin " @ %name, "vadmin " @ %sel);
  440.          Client::addMenuItem(%clientId, %curItem++ @ "Vote to kick " @ %name, "vkick " @ %sel);
  441.       }
  442.       if(%clientId.isAdmin)
  443.       {
  444.          Client::addMenuItem(%clientId, %curItem++ @ "Kick " @ %name, "kick " @ %sel);
  445.          if(%clientId.isSuperAdmin)
  446.          {
  447.             Client::addMenuItem(%clientId, %curItem++ @ "Ban " @ %name, "ban " @ %sel);
  448.             Client::addMenuItem(%clientId, %curItem++ @ "Admin " @ %name, "admin " @ %sel);
  449.          }
  450.          Client::addMenuItem(%clientId, %curItem++ @ "Change " @ %name @ "'s team", "fteamchange " @ %sel);
  451.       }
  452.       if(%clientId.muted[%sel])
  453.          Client::addMenuItem(%clientId, %curItem++ @ "Unmute " @ %name, "unmute " @ %sel);
  454.       else
  455.          Client::addMenuItem(%clientId, %curItem++ @ "Mute " @ %name, "mute " @ %sel);
  456.       if(%clientId.observerMode == "observerOrbit")
  457.          Client::addMenuItem(%clientId, %curItem++ @ "Observe " @ %name, "observe " @ %sel);
  458.    }
  459.    if($curVoteTopic != "" && %clientId.vote == "")
  460.    {
  461.       Client::addMenuItem(%clientId, %curItem++ @ "Vote YES to " @ $curVoteTopic, "voteYes " @ $curVoteCount);
  462.       Client::addMenuItem(%clientId, %curItem++ @ "Vote NO to " @ $curVoteTopic, "voteNo " @ $curVoteCount);
  463.    }
  464.    else if($curVoteTopic == "" && !%clientId.isAdmin)
  465.    {
  466.       Client::addMenuItem(%clientId, %curItem++ @ "Vote to change mission", "vcmission");
  467.       if($Server::TeamDamageScale == 1.0)
  468.          Client::addMenuItem(%clientId, %curItem++ @ "Vote to disable team damage", "vdtd");
  469.       else
  470.          Client::addMenuItem(%clientId, %curItem++ @ "Vote to enable team damage", "vetd");
  471.                
  472.       if($Server::TourneyMode)
  473.       {
  474.          Client::addMenuItem(%clientId, %curItem++ @ "Vote to enter FFA mode", "vcffa");
  475.          if(!$CountdownStarted && !$matchStarted)
  476.             Client::addMenuItem(%clientId, %curItem++ @ "Vote to start the match", "vsmatch");
  477.       }
  478.       else
  479.          Client::addMenuItem(%clientId, %curItem++ @ "Vote to enter Tournament mode", "vctourney");
  480.  
  481.    }
  482.    else if(%clientId.isAdmin)
  483.    {
  484.       Client::addMenuItem(%clientId, %curItem++ @ "Change mission", "cmission");
  485.       if($Server::TeamDamageScale == 1.0)
  486.          Client::addMenuItem(%clientId, %curItem++ @ "Disable team damage", "dtd");
  487.       else
  488.          Client::addMenuItem(%clientId, %curItem++ @ "Enable team damage", "etd");
  489.  
  490.       if($Server::TourneyMode)
  491.       {
  492.          Client::addMenuItem(%clientId, %curItem++ @ "Change to FFA mode", "cffa");
  493.          if(!$CountdownStarted && !$matchStarted)
  494.             Client::addMenuItem(%clientId, %curItem++ @ "Start the match", "smatch");
  495.       }
  496.       else
  497.          Client::addMenuItem(%clientId, %curItem++ @ "Change to Tournament mode", "ctourney");
  498.       Client::addMenuItem(%clientId, %curItem++ @ "Set Time Limit", "ctimelimit");
  499.       Client::addMenuItem(%clientId, %curItem++ @ "Reset Server Defaults", "reset");
  500.    }
  501. }
  502.  
  503. function remoteSelectClient(%clientId, %selId)
  504. {
  505.    if(%clientId.selClient != %selId)
  506.    {
  507.       %clientId.selClient = %selId;
  508.       if(%clientId.menuMode == "options")
  509.          Game::menuRequest(%clientId);
  510.       remoteEval(%clientId, "setInfoLine", 1, "Player Info for " @ Client::getName(%selId) @ ":");
  511.       remoteEval(%clientId, "setInfoLine", 2, "Real Name: " @ $Client::info[%selId, 1]);
  512.       remoteEval(%clientId, "setInfoLine", 3, "Email Addr: " @ $Client::info[%selId, 2]);
  513.       remoteEval(%clientId, "setInfoLine", 4, "Tribe: " @ $Client::info[%selId, 3]);
  514.       remoteEval(%clientId, "setInfoLine", 5, "URL: " @ $Client::info[%selId, 4]);
  515.       remoteEval(%clientId, "setInfoLine", 6, "Other: " @ $Client::info[%selId, 5]);
  516.    }
  517. }
  518.  
  519. function processMenuFPickTeam(%clientId, %team)
  520. {
  521.    if(%clientId.isAdmin)
  522.       processMenuPickTeam(%clientId.ptc, %team, %clientId);
  523.    %clientId.ptc = "";
  524. }
  525.  
  526. function processMenuPickTeam(%clientId, %team, %adminClient)
  527. {
  528.     checkPlayerCash(%clientId);
  529.    if(%team != -1 && %team == Client::getTeam(%clientId))
  530.       return;
  531.  
  532.    if(%clientId.observerMode == "justJoined")
  533.    {
  534.       %clientId.observerMode = "";
  535.       centerprint(%clientId, "");
  536.    }
  537.  
  538.    if((!$matchStarted || !$Server::TourneyMode || %adminClient) && %team == -2)
  539.    {
  540.       if(Observer::enterObserverMode(%clientId))
  541.       {
  542.          %clientId.notready = "";
  543.          if(%adminClient == "") 
  544.             messageAll(0, Client::getName(%clientId) @ " became an observer.");
  545.          else
  546.             messageAll(0, Client::getName(%clientId) @ " was forced into observer mode by " @ Client::getName(%adminClient) @ ".");
  547.             Game::resetScores(%clientId);    
  548.            Game::refreshClientScore(%clientId);
  549.         }
  550.       return;
  551.    }
  552.  
  553.    %player = Client::getOwnedObject(%clientId);
  554.    if(%player != -1 && getObjectType(%player) == "Player" && !Player::isDead(%player)) {
  555.         playNextAnim(%clientId);
  556.        Player::kill(%clientId);
  557.     }
  558.    %clientId.observerMode = "";
  559.    if(%adminClient == "")
  560.       messageAll(0, Client::getName(%clientId) @ " changed teams.");
  561.    else
  562.       messageAll(0, Client::getName(%clientId) @ " was teamchanged by " @ Client::getName(%adminClient) @ ".");
  563.  
  564.    if(%team == -1)
  565.    {
  566.       Game::assignClientTeam(%clientId);
  567.       %team = Client::getTeam(%clientId);
  568.    }
  569.    GameBase::setTeam(%clientId, %team);
  570.    %clientId.teamEnergy = 0;
  571.     Client::clearItemShopping(%clientId);
  572.     if(Client::getGuiMode(%clientId) != 1)
  573.         Client::setGuiMode(%clientId,1);        
  574.     Client::setControlObject(%clientId, -1);
  575.  
  576.    Game::playerSpawn(%clientId, false);
  577.     %team = Client::getTeam(%clientId);
  578.     if($TeamEnergy[%team] != "Infinite")
  579.         $TeamEnergy[%team] += $InitialPlayerEnergy;
  580.    if($Server::TourneyMode && !$CountdownStarted)
  581.    {
  582.       bottomprint(%clientId, "<f1><jc>Press FIRE when ready.", 0);
  583.       %clientId.notready = true;
  584.    }
  585. }
  586.  
  587. function processMenuOptions(%clientId, %option)
  588. {
  589.    %opt = getWord(%option, 0);
  590.    %cl = getWord(%option, 1);
  591.  
  592.    if(%opt == "fteamchange")
  593.    {
  594.       %clientId.ptc = %cl;
  595.       Client::buildMenu(%clientId, "Pick a team:", "FPickTeam", true);
  596.       Client::addMenuItem(%clientId, "0Observer", -2);
  597.       Client::addMenuItem(%clientId, "1Automatic", -1);
  598.       for(%i = 0; %i < getNumTeams(); %i = %i + 1)
  599.          Client::addMenuItem(%clientId, (%i+2) @ getTeamName(%i), %i);
  600.       return;
  601.    }      
  602.    else if(%opt == "changeteams")
  603.    {
  604.       if(!$matchStarted || !$Server::TourneyMode)
  605.       {
  606.          Client::buildMenu(%clientId, "Pick a team:", "PickTeam", true);
  607.          Client::addMenuItem(%clientId, "0Observer", -2);
  608.          Client::addMenuItem(%clientId, "1Automatic", -1);
  609.          for(%i = 0; %i < getNumTeams(); %i = %i + 1)
  610.             Client::addMenuItem(%clientId, (%i+2) @ getTeamName(%i), %i);
  611.          return;
  612.       }
  613.    }
  614.    else if(%opt == "mute")
  615.       %clientId.muted[%cl] = true;
  616.    else if(%opt == "unmute")
  617.       %clientId.muted[%cl] = "";
  618.    else if(%opt == "vkick")
  619.    {
  620.       %cl.voteTarget = true;
  621.       Admin::startVote(%clientId, "kick " @ Client::getName(%cl), "kick", %cl);
  622.    }
  623.    else if(%opt == "vadmin")
  624.    {
  625.       %cl.voteTarget = true;
  626.       Admin::startVote(%clientId, "admin " @ Client::getName(%cl), "admin", %cl);
  627.    }
  628.    else if(%opt == "vsmatch")
  629.       Admin::startVote(%clientId, "start the match", "smatch", 0);
  630.    else if(%opt == "vetd")
  631.       Admin::startVote(%clientId, "enable team damage", "etd", 0);
  632.    else if(%opt == "vdtd")
  633.       Admin::startVote(%clientId, "disable team damage", "dtd", 0);
  634.    else if(%opt == "etd")
  635.       Admin::setTeamDamageEnable(%clientId, true);
  636.    else if(%opt == "dtd")
  637.       Admin::setTeamDamageEnable(%clientId, false);
  638.    else if(%opt == "vcffa")
  639.       Admin::startVote(%clientId, "change to Free For All mode", "ffa", 0);
  640.    else if(%opt == "vctourney")
  641.       Admin::startVote(%clientId, "change to Tournament mode", "tourney", 0);
  642.    else if(%opt == "cffa")
  643.       Admin::setModeFFA(%clientId);
  644.    else if(%opt == "ctourney")
  645.       Admin::setModeTourney(%clientId);
  646.    else if(%opt == "voteYes" && %cl == $curVoteCount)
  647.    {
  648.       %clientId.vote = "yes";
  649.       centerprint(%clientId, "", 0);
  650.    }
  651.    else if(%opt == "voteNo" && %cl == $curVoteCount)
  652.    {
  653.       %clientId.vote = "no";
  654.       centerprint(%clientId, "", 0);
  655.    }
  656.    else if(%opt == "kick")
  657.    {
  658.       Client::buildMenu(%clientId, "Confirm kick:", "kaffirm", true);
  659.       Client::addMenuItem(%clientId, "1Kick " @ Client::getName(%cl), "yes " @ %cl);
  660.       Client::addMenuItem(%clientId, "2Don't kick " @ Client::getName(%cl), "no " @ %cl);
  661.       return;
  662.    }
  663.    else if(%opt == "admin")
  664.    {
  665.       Client::buildMenu(%clientId, "Confirm admim:", "aaffirm", true);
  666.       Client::addMenuItem(%clientId, "1Admin " @ Client::getName(%cl), "yes " @ %cl);
  667.       Client::addMenuItem(%clientId, "2Don't admin " @ Client::getName(%cl), "no " @ %cl);
  668.       return;
  669.    }
  670.    else if(%opt == "ban")
  671.    {
  672.       Client::buildMenu(%clientId, "Confirm Ban:", "baffirm", true);
  673.       Client::addMenuItem(%clientId, "1Ban " @ Client::getName(%cl), "yes " @ %cl);
  674.       Client::addMenuItem(%clientId, "2Don't ban " @ Client::getName(%cl), "no " @ %cl);
  675.       return;
  676.    }
  677.    else if(%opt == "smatch")
  678.       Admin::startMatch(%clientId);
  679.    else if(%opt == "vcmission" || %opt == "cmission")
  680.    {
  681.       Admin::changeMissionMenu(%clientId, %opt == "cmission");
  682.       return;
  683.    }
  684.    else if(%opt == "ctimelimit")
  685.    {
  686.       Client::buildMenu(%clientId, "Change Time Limit:", "ctlimit", true);
  687.       Client::addMenuItem(%clientId, "110 Minutes", 10);
  688.       Client::addMenuItem(%clientId, "215 Minutes", 15);
  689.       Client::addMenuItem(%clientId, "320 Minutes", 20);
  690.       Client::addMenuItem(%clientId, "425 Minutes", 25);
  691.       Client::addMenuItem(%clientId, "530 Minutes", 30);
  692.       Client::addMenuItem(%clientId, "645 Minutes", 45);
  693.       Client::addMenuItem(%clientId, "760 Minutes", 60);
  694.       Client::addMenuItem(%clientId, "8No Time Limit", 0);
  695.       return;
  696.    }
  697.    else if(%opt == "reset")
  698.    {
  699.       Client::buildMenu(%clientId, "Confirm Reset:", "raffirm", true);
  700.       Client::addMenuItem(%clientId, "1Reset", "yes");
  701.       Client::addMenuItem(%clientId, "2Don't Reset", "no");
  702.       return;
  703.    }
  704.    else if(%opt == "observe")
  705.    {
  706.       Observer::setTargetClient(%clientId, %cl);
  707.       return;
  708.    }
  709.    Game::menuRequest(%clientId);
  710. }
  711.  
  712. function processMenuKAffirm(%clientId, %opt)
  713. {
  714.    if(getWord(%opt, 0) == "yes")
  715.       Admin::kick(%clientId, getWord(%opt, 1));
  716.    Game::menuRequest(%clientId);
  717. }
  718.  
  719. function processMenuBAffirm(%clientId, %opt)
  720. {
  721.    if(getWord(%opt, 0) == "yes")
  722.       Admin::kick(%clientId, getWord(%opt, 1), true);
  723.    Game::menuRequest(%clientId);
  724. }
  725.  
  726. function processMenuAAffirm(%clientId, %opt)
  727. {
  728.    if(getWord(%opt, 0) == "yes")
  729.    {
  730.       if(%clientId.isSuperAdmin)
  731.       {
  732.          %cl = getWord(%opt, 1);
  733.          %cl.isAdmin = true;
  734.          messageAll(0, Client::getName(%clientId) @ " made " @ Client::getName(%cl) @ " into an admin.");
  735.       }
  736.    }
  737.    Game::menuRequest(%clientId);
  738. }
  739.  
  740. function processMenuRAffirm(%clientId, %opt)
  741. {
  742.    if(%opt == "yes" && %clientId.isAdmin)
  743.    {
  744.       messageAll(0, Client::getName(%clientId) @ " reset the server to default settings.");
  745.       Server::refreshData();
  746.    }
  747.    Game::menuRequest(%clientId);
  748. }
  749.  
  750. function processMenuCTLimit(%clientId, %opt)
  751. {
  752.    remoteSetTimeLimit(%clientId, %opt);
  753. }